home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / util / libs / DateLib.lha / DateLib / Developer / Modula / Defs / DateD.def next >
Encoding:
Modula Definition  |  1999-06-16  |  1.1 KB  |  46 lines
  1. (*
  2. **
  3. ** Copyright © 1996-1999 Dipl.-Inform. Kai Hofmann. All rights reserved.
  4. ** Registered Amiga shared library!
  5. **
  6. ** $VER: DateD.def 33.310 (16.06.99)
  7. **
  8. ** Experimental version, please report bugs/improvements!
  9. *)
  10.  
  11.  DEFINITION MODULE DateD; (*$ Implementation:=FALSE *)
  12.  
  13.  
  14.  FROM ExecD IMPORT Library;
  15.  
  16.  
  17.  CONST
  18.    dateName="date.library";
  19.  
  20.  
  21.  TYPE
  22.    MoonPhases = (NewMoon,FirstQuarter,FullMoon,LastQuarter);
  23.    Weekdays   = (dayerr,Monday,Tuesday,Wednesday,Thursday,Friday,
  24.          Saturday,Sunday);
  25.    DateTexts  = (day,month,year,week,weekday,hour,minute,second,yesterday,
  26.          today,tomorrow);
  27.    WordClass  = (singular,plural,periodical);
  28.    Languages  = (Locale,English,German,French,Spanish,Portuguese,Danish,
  29.          Italian,Dutch,Norwegian,Swedish,Polish,Finnish,Hungarian,
  30.          Greek,Esperanto,Turkish,Latin,Russian,Czech,Catalonian,
  31.          Serbian,LASTLANGUAGE);
  32.    Countries  = (unknown,Italia,Deutschland,Schweiz,Danmark,Nederland,
  33.          GreatBritain,USA,Sweden);
  34.    Calendars  = (Julian,Gregorian,Heis);
  35.  
  36.    ChangeDay  = (Normal,WinterToSummer,SummerToWinter);
  37.  
  38.    DateBasePtr = POINTER TO Library;
  39.  
  40.  
  41.  VAR
  42.    dateBase[4] : DateBasePtr;
  43.  
  44.  
  45.  END DateD.noimp
  46.